home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Anwendun / LUNA152A / SCRIPTE / MAUS2NET.LUS < prev    next >
Encoding:
Text File  |  1999-08-10  |  1.3 KB  |  80 lines
  1. ;
  2. ; Maus 2 Net - Jan Daldrup 1999 (http://place2be.de/)
  3. ; Luna Script zur Umwandlung von MausNet Nachrichten ins HTML Format
  4. ; Folgendes wird von diesem Script erledigt:
  5. ; - HTML Header einfügen
  6. ; - Textattribute umwandeln (25%)
  7. ; - Links expandieren (50%)
  8. ; - Umlaute umwandeln (in Planung)
  9. ;
  10.  
  11. ; HTML Header einfügen
  12.  
  13. ; Textanfang
  14.  
  15.     text_home()
  16.     return(0)
  17.     crs_up(0)
  18.     
  19.     blk_hide()
  20.     
  21.     tput "<!DOCTYPE HTML PUBLIC "
  22.     keypress(34,$2)
  23.     tput "-//W3C//DTD HTML 4.0 //EN"
  24.     keypress(34,$2)
  25.     tput ">"
  26.  
  27.     return(0)
  28.     tput "<HTML>"
  29.     return(0)
  30.     tput "  <HEAD>"
  31.     return(0)
  32.     tput "    <TITLE>Maus.Computer.Atari.News</TITLE>"
  33.     return(0)
  34.     tput "  </HEAD>"
  35.     return(0)
  36.     tput "<BODY BGCOLOR="
  37.     keypress(34,$2)
  38.     tput "#FFFFFF"
  39.     keypress(34,$2)
  40.     tput ">"
  41.     return(0)
  42.     tput "<PRE>"
  43.     
  44. ; Textende
  45.  
  46.     text_end()
  47.     return(0)
  48.     tput "</PRE>"
  49.     return(0)
  50.     tput "</BODY>"
  51.     return(0)
  52.     tput "</HTML>"
  53.  
  54. ; Textattribute Umwandeln
  55.  
  56. ; Fett 
  57.     replace(0,0,-1,-1,"* ","</B>")
  58.     replace(0,0,-1,-1,"*","<B>")
  59.  
  60. ; Unterstrichen 
  61.     replace(0,0,-1,-1,"_ ","</U>")
  62.     replace(0,0,-1,-1,"_","<U>")
  63.  
  64. ; Links expandieren
  65.  
  66. ; HTTP Adressen
  67.     search(0,0,-1,"http://")
  68.     crs_left(4)
  69.     blk_hide()
  70.     tput "<A HREF="
  71.     keypress(34,$2)
  72.     goto_char(32)
  73.     keypress(34,$2)
  74.     tput " TARGET="
  75.     keypress(34,$2)
  76.     tput "_top"
  77.     keypress(34,$2)
  78.     tput "></A>"
  79.  
  80.     end()